home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / COLORS.IRT < prev    next >
Text File  |  1991-12-15  |  695b  |  45 lines
  1. save_mat = view_mat;
  2.  
  3. color(axes,red);
  4. view(list(axes), on);
  5.  
  6. view_mat = view_mat * rotz(15);
  7. a = axes;
  8. color(a,green);
  9. view(list(a), off);
  10.  
  11. view_mat = view_mat * rotz(15);
  12. b = axes;
  13. color(b,blue);
  14. view(list(b), off);
  15.  
  16. view_mat = view_mat * rotz(15);
  17. c = axes;
  18. color(c,yellow);
  19. view(list(c), off);
  20.  
  21. view_mat = view_mat * rotz(15);
  22. d = axes;
  23. color(d,cyan);
  24. view(list(d), off);
  25.  
  26. view_mat = view_mat * rotz(15);
  27. e = axes;
  28. color(e,magenta);
  29. view(list(e), off);
  30.  
  31. view_mat = view_mat * rotz(15);
  32. f = axes;
  33. color(f,white);
  34. view(list(f), off);
  35.  
  36. view_mat = view_mat * rotz(15);
  37. g = axes;
  38. color(g,black);
  39. view(list(g), off);
  40.  
  41. view_mat = save_mat;
  42.  
  43. pause(1.0);
  44.  
  45.